home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1986 October
/
1986-10.d64
/
menu system
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
64 lines
10 dim p$(20),l$(20),e$(20),s$(20),r$(20):q$=chr$(34):c$=","
20 m$="insert disk and press a key":gosub560
30 s1$="5 dimp$(20),l$(20),j$(20),s$(20),r$(20),e$(20)"
40 s2$="10 x=1:f$="+chr$(34)
50 s2$=s2$+"[147]select"
60 s3$="20 forn=1to20:e$(n)="+chr$(34)+",8"+chr$(34)
70 s3$=s3$+":next:open2,8,2,"+chr$(34)
80 s3$=s3$+"0:.m,s,r"+chr$(34)+":m$="+chr$(34)+",8,1"+chr$(34)+":q$=chr$(34)"
90 s4$="30 forn=1to20:input#2,p$(n),l$(n),j$(n),s$(n),r$(n):ifj$(n)="+chr$(34)
100 s4$=s4$+"1"+chr$(34)+"thene$(n)=m$"
110 s5$="40 next:close2:printf$:forn=1to20:printn;tab(4)
120 s5$[178]s5$[170]";p$(n):next:input"[170][199](34)[170]""[170][199](34)[170]";k"
130 s6$[178]"50 print"[170][199](34)[170]"loadload"[170][199](34)[170]";q$;p$(k);q$;e$(k):ifs$(k)>"
140 s6$[178]s6$[170][199](34)[170]"0"[170][199](34)[170]"thenprint"[170][199](34)[170]"sys"[170][199](34)
150 s6$[178]s6$[170]";s$(k):x=x+1"
160 s7$[178]"60 ifr$(k)="[170][199](34)[170]"y"[170][199](34)[170]"thenprint"[170][199](34)[170]"run"
170 s7$[178]s7$[170][199](34)[170]":x=x+1:ifs$(k)>"[170][199](34)[170]"0"[170][199](34)[170]"thenprint"
180 s7$[178]s7$[170][199](34)[170]"ononrun"[170][199](34)
190 s8$[178]"70 forz=0tox:b=631+z:pokeb,13:poke198,z:next:print"[170][199](34)[170]""
200 s8$[178]s8$[170][199](34)
210 [153]"load menu system"
220 [153]" f1 wait...create menu file"
230 [153]" f2 wait...load menu file"
240 [153]" f3 wait...edit menu file"
250 [153]" f4 wait...save menu file"
260 [153]" f5 wait...write menu driver"
270 [161]k$:[139]k$[178][199](133)[167][141]560:[137]390
280 [139]k$[178][199](137)[167]330
290 [139]k$[178][199](134)[167]390
300 [139]k$[178][199](138)[167]360
310 [139]k$[178][199](135)[167]600
320 [137]270
330 [141]570:[159]2,8,2,"0:.m,s,r"
340 [129]n[178]1[164]20:[132]2,p$(n),l$(n),e$(n),s$(n),r$(n):[130]
350 [160]2:[137]390
360 [141]570:[159]2,8,2,"@0:.m,s,w"
370 [129]n[178]1[164]20:[152]2,p$(n)c$l$(n)c$e$(n)c$s$(n)c$r$(n)c$:[130]
380 [160]2:[137]210
390 [153]"loadedit option":[129]n[178]1[164]9:[153]n;[200](p$(n),16):[130]
400 [153]"10 ";[200](p$(10),16);"onononononononononon":[129]n[178]11[164]20:[153][163]19)n;
410 [153][200](p$(n),16):[130]:[153]" ewait to edit or returnwait for menu"
420 [161]k$:[139]k$[178]""[167]420
430 [139]k$[178][199](13)[167]210
440 [139]k$[179][177]"e"[167]420
450 [153]" on"
460 [133]"which digit to edit";n$:n[178][197](n$):[139]n[179]1[176]n[177]20[167]450
470 [133]"enter program name";p$(n):p$(n)[178][200](p$(n),35)
480 [133]"enter boot name";l$(n):l$(n)[178][200](l$(n),16)
490 [133]"enter 1 wait for 8,1closeor 0 wait for ,8";e$(n)
500 [133]"enter sys# or return";s$(n)
510 [139] s$(n)[178][199](13)[176]s$(n)[178]""[167]s$(n)[178]" ":[137]530
520 [139]s$(n)[178]""[167]s$(n)[178]" "
530 [133]"run command needed";r$(n):r$(n)[178][200]((r$(n)),1)
540 [139]r$(n)[179][177]"n"[175]r$(n)[179][177]"y"[167][153]"ononon":[137]530
550 [137]390
560 [129]n[178]1[164]20:p$(n)[178]" ":l$(n)[178]" ":e$(n)[178]" ":s$(n)[178]" ":r$(n)[178]" ":[130]:[142]
570 [153]"load";m$
580 [161]k$:[139]k$[178]""[167]580
590 [142]
600 [153]"loadnew"
610 [153]s1$:[153]s2$:[153]s3$:[153]s4$:[153]s5$:[153]s6$:[153]s7$:[153]s8$
620 [153]"save"[170][199](34)[170]"@0:menu"[170][199](34)[170]",8:sys64738"
630 [129]z[178]0[164]10:[151]631[170]z,13:[151]198,z[170]1:[130]:[128]